perm filename RDTEST[LSP,LSP] blob
sn#335142 filedate 1978-02-13 generic text, type T, neo UTF8
00100 (PROG (SEXPR IBASE)
00200 (SETQ IBASE (ADD1 7))
00300 LOOP (SETQ SEXPR (PRINT (ERRSET (READ))))
00400 (COND ((EQ SEXPR (QUOTE $EOF$)) (RETURN NIL)))
00500 (COND ((MEMQ (CAAR SEXPR) (QUOTE (BEGINBLOCK ENDBLOCK))) (GO LOOP)))
00600 (PRINT (EVAL (CAR SEXPR)))
00700 (GO LOOP))
00800
00900 (BEGINBLOCK COMPILER)
01000
01100 (DECLARE (SPECIAL LASTOUT LOCVARS SPECVARS P1CNT P2CNT FUNNAME))
01200
01300 (DE (FOO X) (CAR X))
01400
01500 T
01600
01700 (CONS T NIL)
01800